home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PLUS4 / plus4disk1.d64 / ch1.07 frame < prev    next >
Text File  |  2009-01-03  |  5KB  |  86 lines

  1. Ç*NB"1:CH1.07  FRAME"
  2. Ç*SP0:LM8:RM62:PP66:PG59
  3. Ç*VP3:HL8:HR72:HD0:├16/+4: ╞╥┴═╔╬╟                     ,,╙ECTION XX
  4. Ç*HS2:------------------------------------,,----------
  5. Ç*FT0:-----------------------,,----------
  6. Ç*FS3:(C) 1984 ┼LIZABETH ─EAL,,         Ç#
  7. ╙ECTION
  8. Ç*LN2:CN1
  9. ╞╥┴═╔╬╟
  10. Ç*LN2:CN0
  11.     ╫HEN TEXT IS PRINTED ON THE SCREEN OR WHEN A CHILD DESIGNS A BEAUTIFUL GRAPHIC DISPLAY IT PAYS TO FRAME IT. ╘HE TWO PROGRAMS IN THIS SECTION DO JUST THAT. ╧NE USES STANDARD PRINTING, ONE POKES THE SCREEN MEMORY.
  12.  
  13. // PRG: FRAME MAKER //
  14.  
  15. ***  ╓┴╥╔┴┬╠┼╙  ***
  16.  
  17. ╘┬$ THE TOP AND BOTTOM LETTERS
  18. ╙╙$ STRING FOR THE SIDES
  19. ╞$  CONTAINS CURSOR LEFT PLUS THE INSERT
  20.     CHARACTER
  21.  
  22. ***  ╔╬╙╘╥╒├╘╔╧╬╙  ***
  23.  
  24.      ╔N LINE 30 YOU CAN TYPE THE NUMBERS AS YOU NOW SEE THEM, BUT THE NUMBERS ARE THERE ONLY TO HELP YOU COUNT. ┴ ROW OF STARS OR ANY OTHER CHARACTER SHOULD GO THERE INSTEAD. ╔N LINE 40 THERE ARE STARS AT POSITION 0 AND 38. ╘HE CENTER OF THE STRING IS MADE UP OF SPACES TO FOLLOW THE IDEA OF A FRAME.
  25.  
  26.      ╘HE GRAPHIC CHARACTERS YOU SEE IN THE LISTING ARE ╚╧═┼ IN LINE 70 AND ╚╧═┼, ┘┼╠╠╧╫, 11 CURSOR-DOWN AND 16 CURSOR-RIGHT CHARACTERS IN LINE 90. ╥╒╬ THE PROGRAM TO DRAW THE FRAME. ╔T STOPS WHEN IT IS DONE.
  27.  
  28. ***  ─┼╘┴╔╠╙  ***
  29.  
  30.     ╘HAT'S THE FRAME MAKING ROUTINE. ╔T USES ONLY ╨╥╔╬╘ STATEMENTS. ╘HE TRICK IS NOT TO PRINT OVER 39 CHARACTERS PER LINE AND NOT TO ALLOW THE PRINTING CURSOR TO WRAP AROUND TO THE NEXT LINE. ╘HIS IS DONE IN LINE 30. ╔T IS THE SAME AS IF, IN DIRECT MODE, YOU TYPED A ROW OF STARS OR LETTERS, 38 CHARACTERS LONG. ╘HEN YOU BACK UP THE CURSOR ONE POSITION, ╔╬╙╘ ONE CHARACTER AND FILL IN THE GAP.
  31.  
  32.     ╧NCE THE FRAME IS DRAWN YOU CAN PRINT ANYTHING YOU WISH, SO LONG AS THE TEXT DOES NOT EXCEED 37 CHARACTERS PER LINE.
  33.  
  34. ***  ╨╥╧╩┼├╘  ***
  35.     
  36.     ├HANGE THE CHARACTER FROM A STAR TO SOMETHING ELSE. ├LEAR THE SCREEN BEFORE PRINTING ANY PICTURE, THEN FRAME IT. ┴╠TERNATELY YOU CAN DO THE FRAME FIRST, THEN FILL IT WITH WHATEVER PICTURE YOU HAVE IN MIND.
  37.  
  38.     ├OMBINED WITH THE WINDOWS, DESCRIBED BEFORE, A FRAMING ROUTINE COULD HELP YOU DESIGN VERY INTERESTING SCREEN DISPLAYS. ╒SE YOUR IMAGINATION, USE COLORS EFFECTIVELY, USE MOVING DISPLAYS, IF NEEDED ... ENJOY WHAT THIS COMPUTER CAN DO.
  39.  
  40. Ç*CN1;--- ╨╧╦┼─ ╞╥┴═┼ ---Ç*CN0
  41.  
  42.     ╩UST A DIFFERENT WAY TO PLUCK A CHICKEN. ╔NSTEAD OF PRINTING, WE PUT THE ASTERISK FRAME ALL AROUND BY A PROCESS CALLED ╨╧╦┼ - STUFFING THE MEMORY DIRECTLY. ╫E HAVE TO TAKE CARE OF THE COLORS AS WE CAN'T COUNT ON ╨╧╦┼ TO DO IT RIGHT. ╨╧╦┼ IS SLOWER. ╔T IS MORE DIFFICULT TO CODE, SO YOU SHOULDN'T USE IT UNLESS YOU MUST.
  43.  
  44. // PRG: POKED WINDOW //
  45.  
  46. ***  ╓┴╥╔┴┬╠┼╙  ***
  47.  
  48. ╙═ COMPUTER'S SCREEN MEMORY
  49. ├═ COLOR MEMORY
  50. ╙  ╙├╥┼┼╬ CODE FOR AN ASTERISK
  51. ├  CHARACTER COLOR CODE
  52. ╩  LOOP INDEXES FOR THE BORDER
  53.    MEMORY LOCATIONS.
  54.  
  55. ***  ╔╬╙╘╥╒├╘╔╧╬╙  ***
  56.  
  57.      ╘HE GRAPHICS TO TYPE ARE AS FOLLOWS: IN LINE 120 - ├╠┼┴╥-THE-SCREEN, TWICE ╚╧═┼, CURSOR DOWN, CURSOR RIGHT. ╔N LINE 180: 22 CURSOR DOWN AND 37 CURSOR RIGHT. ╥╒╬ THE PROGRAM. ╔T ENDS BY ITSELF AND LEAVES YOU WITH A WINDOW INSIDE THE FRAME.
  58.  
  59. ***  ─┼╘┴╔╠╙  ***
  60.  
  61.     ╘HE COLOR OF THE STAR IS CYAN. ├ IS THE COLOR. ╫HY IS IT 3 INSTEAD OF 4? ╩UST CONFUSION WITH A BIT OF HISTORICAL AND COMPUTERESE BACKROUND. ╘O ╨╧╦┼, USE A NUMBER ONE LESS THAN THE COLOR NUMBER YOU SEE ON THE KEYTOPS. ╙O, IT'S ├╧╠╧╥1,4. BUT IT'S ╨╧╦┼ COLOR MAP,3.
  62.     
  63.     ╠INES 130-140 POKE THE TOP AND BOTTOM HORIZONTAL LINES. ╘HEIR ADDRESSES ARE SEPARATED BY 960 CHARACTERS (THE SCREEN IS 1000 CHARACTERS LONG, SUBTRACT 40 TO GET THE START OF THE BOTTOM LINE).
  64.  
  65.     ╠INES 150-170 POKE THE TWO SIDES. ╚ERE, WE PICK EVERY FORTIETH POSITION. ╫E POKE THAT, AND ONE POSITION LEFT, WHICH FALLS ON THE RIGHT EDGE OF THE SCREEN.
  66.  
  67. ***  ╫╔╬─╧╫╙  ***
  68.  
  69.     ╫HEN THE PROGRAM IS DONE, IT "SETS A WINDOW". ╘HIS IS ANOTHER OF THE GREAT FEATURES OF THIS COMPUTER. ┘OU CAN LIMIT ALL PRINTING TO ONE AREA ON THE SCREEN. ╫HEN "╥┼┴─┘." APPEARS, LIST THE PROGRAM AND NOTE THAT THE STARS STAY PUT, WHILE THE PROGRAM SCROLLS OFF THE SCREEN. ┘OU CAN SET A WINDOW IN A SIMILAR FASHION AT THE END OF THE FIRST PROGRAM.
  70.  
  71.     ╘HE WINDOW'S TOP IS SET IN LINE 120. ╔T'S ONE POSITION DOWN AND ONE POSITION RIGHT FROM THE HOME POSITION. ╘HE BOTTOM OF THE WINDOW IS SET BY TAKING THE CURSOR 22 POSITIONS DOWN AND 37 RIGHT. ┘OU CAN CHANGE THESE VALUES OF COURSE.
  72.  
  73.     ╫INDOWS CAN BE SET IN DIRECT MODE, BY FOLLOWING THE ┼╙├ KEY WITH ╘-KEY FOR THE TOP LEFT CORNER AND ┬-KEY FOR THE BOTTOM RIGHT CORNER OF THE WINDOW.
  74.  
  75. ***  ╨╥╧╩┼├╘╙  ***
  76.  
  77.     ╚OW ABOUT MAKING THE DISPLAY AREA 1 CHARACTER WIDE? ╚OW DO YOU THINK THE WORD "╥┼┴─┘." OR YOUR PROGRAM LISTING WILL APPEAR?
  78.  
  79.     ╨ROJECT FOR A LATER TIME, WHEN YOU REREAD THIS BOOK: CHANGE THE SIZE OF THE FRAME TO A MUCH SMALLER AREA IN THE SECOND PROGRAM. ┘OU WILL NEED TO ADJUST THE ╨╧╦┼ ADDRESSES.
  80.  
  81.     ─ESIGN A HORIZONTAL WINDOW, ONE LINE WIDE. ┬EFORE YOU USE IT, THINK WHAT WILL HAPPEN TO LISTING, MESSAGES, COMPUTER RESPONSES?
  82.  
  83.      ╫INDOWS ARE INDEPENDENT LITTLE CREATURES. ┘OU CAN WORK WITH THEM JUST ABOUT IN THE SAME WAY AS WITH FULL SCREEN: THEY CAN BE CLEARED INDEPENDENTLY OF THE SCREEN, THEY SCROLL ON THEIR OWN, THEY CAN BE USED FOR ╔╬╨╒╘ WITHOUT PICKING UP ANY EXTRANEOUS INFORMATION AND SO ON. ╘HEY CANNOT HAVE A DIFFERENT COLOUR UNLESS YOU PRINT IN DIFFERENT COLOR. ╘HERE ARE MANY FEATURES WORTH EXPLORING, DO IT BY EXPERIMENTING.
  84.  
  85.     ╙TUCK IN A WINDOW? ╨RESS ╚╧═┼ TWICE.
  86.